// TOWN SPECIAL ENCOUNTERS
//    Town 40: Portal Fortress

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

	set_name(4013,"Portal Technician");
	set_name(4045,"Portal Technician");
//	add_range_to_group(,,groupn);

	set_personality_name(800,"Kelner");
	set_personality_name(801,"Walner");
	set_personality_name(802,"Jake");
	set_personality_name(803,"Carol");
	set_personality_name(804,"Seles");
	set_personality_name(805,"Seles");
	set_personality_name(806,"Tor");
	set_personality_name(807,"Julio");
	set_personality_name(808,"Denise");
	set_personality_name(809,"Brantford");
	set_personality_name(810,"Portal Technician");
	set_personality_name(811,"Apprentice");
	set_personality_name(487,"Mother Clarisse");

	if (gf(308,5) == 0) 
		erase_char(4044);
		else erase_char(4029);

	set_crime_tolerance(max_crime);


	if (revive_party()) {
			print_str_color("Entering a friendly major city heals your wounds",2);
		print_str_color("  and restores your spell energy.",2);
		}
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (gf(308,5) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(4002,"Hello, adventurer.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(4002,"Come in!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(4002,"You may use our library.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(4002,"Please be careful with the books.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(4002,"I am here to help.");
		}
		else if (gf(308,5) < 3) {
			if (get_ran(1,0,100) < 25)
				give_char_text_bubble(4002,"You must save us!");
			if (get_ran(1,0,100) < 25)
				give_char_text_bubble(4002,"Take the portal to the tower.");
			if (get_ran(1,0,100) < 15)
				give_char_text_bubble(4044,"You need to go below.");
			if (get_ran(1,0,100) < 15)
				give_char_text_bubble(4044,"The Tower of Magi is lost.");
			if (get_ran(1,0,100) < 15)
				give_char_text_bubble(4044,"Go through the portal to investigate.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(4044,"We're all counting on you.");

			}
			else {
				if (get_ran(1,0,100) < 20)
					give_char_text_bubble(4002,"You saved us all.");
				if (get_ran(1,0,100) < 20)
					give_char_text_bubble(4002,"Such a disaster.");
				if (get_ran(1,0,100) < 20)
					give_char_text_bubble(4044,"You saved us.");
				if (get_ran(1,0,100) < 20)
					give_char_text_bubble(4044,"The portal is almost useless.");

				}
				
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4009,"Come in.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4009,"Did you see my pen?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4009,"I buy rare books.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4009,"I can make potions.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4017,"Off to Fort Emergence.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4017,"We're sure to be found.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4017,"Johnson is a curse.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4011,"I came up with Tor.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4011,"I am a healer.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4011,"Do you need training?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4011,"The fighting hasn't started yet.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4029,"Talk to me first.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4029,"Beware the portal.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4029,"Don't touch the controls.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4029,"I remember you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4014,"These things aren't for you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4014,"Been at this a long time.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4014,"Waiting for my orders.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4014,"Take this crate now.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4014,"These weapons go in the next wagon.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4019,"Will they send me out soon?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4019,"I envy you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4019,"I want to see the surface.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4019,"I am bored here!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4019,"I'm ready for a mission.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4040,"Another intruder.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4040,"Don't you ever knock?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4040,"I have work to do!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4040,"Sigh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4012,"Hello, traveler.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4012,"I buy and sell.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4012,"Care to trade?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4046,"What a loss.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4046,"Such a waste.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4046,"I am so angry.");


break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

